SUBROUTINE ckinp

	USE ckvar
	INTEGER :: i,j
!	REAL :: temp
!	call readjanaf('H2O',298.0,thp)

	call readmech	! READ elements, species, reactions from CK inpts
!	write(*,'(A16,I2,A1)') '|# of elements: ',nelm,'|'
!	write(*,*) (elm(j),j=1,nelm)
!	write(*,'(A15,I2,A1)') '|# of species: ',nspc,'|'

	DO i=1,nspc
	call readtherm(i)
!	write(*,*) spc(i),mwspc(i)
	ENDDO
END SUBROUTINE ckinp
